Oana 
OO 
COO 
Oana 
QO 
Oona 
aon 
Oona 
OOo 
QOon 
Oona 
Oona 


SOOO AIAIAOAOIOAIOIAOAI 
SOOO OAIOAIAAOAAOL 
AOOOIOOIOAIAIAIAIAAOLN 


OOo 
PO 
Oona 
OOo 
OOo 
QO 
OO 
COO” 
COO 
OO 
COO 
COO 


000000000 PPPPPPPPPPPP 
000000000 PPPPPPPPPPPP 
000000000 PPPPPPPPPPPP 
0 000 PPP 


0 PPP 
000 000 PPP PPP 
000 PPP PPP 
000 000 PPP PPP 
000 000 PPP PPP 
000 000 PPP PPP 
000 000 PPPPPPPPPPPP 
000 000 PPPPPPPPPPPP 
000 PPPPPPPPPPPP 
000 000 PPP 
000 O PPP 
000 000 PPP 
000 000 PPP 
000 000 PPP 


0 000 P 
000000000 PPP 
000000000 PPP 
000000000 PPP 
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cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 


on 
on 
on 
on 
oan 
oa 
aon 
on 
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REQUIRE file for COPY utility, COPYMSG.REQ 
Version: *v04-000' 


i seeeeverenreeentenerenerecerreeteenerentinnenenenenenteeninneteeetenerteets 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, ” MAYNARE. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS wrote UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
© 
® 
® 
® 
® 
® 
® 
& 
® 
ie TRANSFERRED. » 
® 
® 
® 
® 
® 
® 
& 
® 
® 
* 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


Lee eR RRR RRA EEE AAAAEEEA RAAT 
! - 


! Created by Carol Peters, April 25, 1978, 13:52:00 


; Modified by: | 
001 TMHOO01 T. Halvorsen 17-Nov-1979 | 
: Do not declare copy$msq_ number external if it has 

; already been declared in the calling module. 


; External declarations 


Z1F NOT EDECLARED(copySasq_ number) XTHEN 

EXTERNAL ROUTINE 
afl copy$msg_number ; ! Determines the numeric value of an error message 
' 

i 


: Macros 


MACRO 


; The PUT_MESSAGE macro SIGNALS an error to the catchall handler. 
put_message (msg_symbol) = ! Send fixed message to the user 
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ZIF asa symbol MOD 8 NEQ sts$k_severe 
XZTREN SIGNAL 
ZELSE SIGNAL_STOP %F 1 
(co fuaver (msg_ symbol) 
aiPPELENeriG 6.87 
ZTHEN , EREMAINING ZF I) 


If this is get» severe error message, 
then just s Tonal the error; 
otherwise, signal a fatal error. 
Use as arguments to the SIGNAL, 
the ayneer of the message, 
and i Sere than one parameter to the macro, 
the remaining parameters as well. 


put <pessage: (msg_value) = ! Send variable message to user 
F_copy$msg_number (msg. value) MOD 8 NEQ sts$k_severe 


SIGNAL “SPPECERGTH ofa (msg_value) 
ZTHEN , ZREMAINING %F 1) 
SIGNAL_STOP Ccopytaeg number saeg.votue) 
IF ZCENGTH GTR 
: ZTHEN , ZREMAINING %FI) 


1 
! End of REQUIRE file, COPYMSG.REQ 
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